00100		DIMENSION IB(1),I(1000),IA(50)
00105		A=0
00120		CALL DPYSET(2,IA,50)
00125		CALL ALINE(-400,400,400,400)
00130			CALL ALINE(-400,200,400,200)
00135		CALL ALINE(-400,0,400,0)
00140		CALL ALINE(-400,-200,400,-200)
00145		CALL ALINE(-400,-400,400,-400)
00150		CALL ALINE(-400,400,-400,-400)
00155		CALL ALINE(-200,400,-200,-400)
00160		CALL ALINE(0,400,0,-400)
00165		CALL ALINE(-200,400,-200,-400)
00170		CALL ALINE(-400,400,-400,-400)
00175		CALL ALINE(200,400,200,-400)
00180		CALL ALINE(400,400,400,-400)
00185		CALL DPYOUT(2)
00200		CALL DPYSET(1,I,1000)
00300	5	TYPE 1
00400		ACCEPT 2,J,K,L
00500	1	FORMAT(' TYPE X AND Y,I=INV'/)
00600	2	FORMAT(2I,A1)
00620		IF(L.EQ.'S')GO TO 7
00640		IF(A.EQ.0)L='I'
00650		A=1
00700		IF(L.EQ.'I')GO TO 3
00710		IF(L.EQ.'B')GO TO 6
00800		CALL AVECT(J,K)
00900		GO TO 4
01000	3	CALL AIVECT(J,K)
01010	4	N=I(2)
01100	 	CALL DPYOUT(1)
01200		GO TO 5
01210	6	I(2)=N-1
01215		CALL ACCPOG(1)
01220		GO TO 4
01250	7	IB(1)=I(2)+2
01260		CALL SAVB(IB)
01300		END